home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / EDITORS / AMIMACRO.ZIP;1 / CHNGCASE.SMM < prev    next >
Encoding:
INI File  |  1992-12-13  |  1.1 KB  |  124 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _MACRO.STY
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     Citizen GSX-140
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Changes the case of the first letter in the word the cursor is in when the macro is executed.
  19.     
  20.     
  21.     
  22.     
  23.     724215893
  24.     1
  25.     724214935
  26.     14
  27.     1
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [l1]
  54.     0
  55. [pg]
  56.     1
  57.     12 0 12 1025 0 0 0 216 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  58. [edoc]
  59. FUNCTION Chngcase()
  60.  
  61. Type( "<[>CTRLLeft]<[>SHIFTRight]" )
  62.  
  63. ltr=curshade$()
  64.  
  65. ansi=asc(ltr)
  66.  
  67. If ansi << 91
  68.  
  69.     ansi = ansi + 32
  70.  
  71. Elseif ansi <;> 96
  72.  
  73.     ansi = ansi - 32
  74.  
  75. Endif
  76.  
  77. ltr=chr$(ansi)
  78.  
  79. Type("{ltr}")
  80.  
  81. <:#216,10800>END FUNCTION
  82.  
  83. >
  84.  
  85. [Embedded]
  86. 00000813
  87. >
  88. [macsum] 1
  89. Chngcase 0 0 3 0
  90. [macse]
  91. 14 Chngcase
  92. 0 6 "[16421][4135]"
  93. 0 24
  94. 13
  95. 8 1
  96. 0 40 "{1}"
  97. 13
  98. 8 2
  99. 6 2
  100. 5 91
  101. 18 5
  102. 11 00000134
  103. 6 2
  104. 5 32
  105. 3 0
  106. 8 2
  107. 10 00000185
  108. 6 2
  109. 5 96
  110. 18 3
  111. 11 00000185
  112. 6 2
  113. 5 32
  114. 3 1
  115. 8 2
  116. 0 39 "{2}"
  117. 13
  118. 8 1
  119. 0 6 "{1}"
  120. 6 0
  121. 15
  122. 9
  123. 00000838
  124.